home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00144_Script_Movie Display Frame Script < prev    next >
Text File  |  1997-07-24  |  1KB  |  39 lines
  1. global gQTVRObj, gDot
  2.  
  3.  
  4. on exitFrame
  5.   -- Movie Display Frame Script
  6.   
  7.   if isQTVRMovie(gQTVRObj) then  -- only do this stuff if there's an open qtvr movie
  8.     if rollover(1) then         -- test to see if the mouse is over the qtvr movie
  9.       set the membernum of sprite 9 = gDot
  10.       set the membernum of sprite 10 = gDot
  11.       updatestage
  12.       
  13.       set action = QTVRMouseOver(gQTVRObj)    -- if it is then tell qtvr to take control\
  14.       if action <> 0 then
  15.         if value(item 2 of action) <> 0 then 
  16.           cursor 200
  17.           set whatmem = "sfx " & string( random( 4 ))
  18.           puppetsound 2, whatmem
  19.           
  20.           puppetsprite 4, false
  21.           puppetsprite 9, false
  22.           puppetsprite 10, false
  23.           
  24.           go frame item 2 of action
  25.           
  26.           QTVRSetVisible(gQTVRObj, false)
  27.           cursor 0
  28.         end if
  29.       end if
  30.       
  31.     else
  32.       QTVRIdle(gQTVRObj)         -- if not then let qtvr perform it's idle business
  33.       cursor 200                 -- and reset the cursor
  34.       cursor -1
  35.     end if
  36.   end if
  37.   
  38.   go the frame
  39. end